home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / MOVIES / FIND.DIR / 00020_Script_testing code < prev    next >
Text File  |  1995-11-13  |  350b  |  13 lines
  1. on testmatch
  2.   repeat with i = 1 to 353
  3.     if (line i of field 19) <> (line i of field 18) then put i & RETURN & line i of field 19 & RETURN line i of field 18 & RETURN 
  4.   end repeat
  5.   
  6. end testmatch
  7.  
  8. on look3
  9.   repeat with i = 1 to 353
  10.   if (item 3 of line i of field 18) <> "" then put i && line i of field 18
  11.   end repeat
  12.   
  13. end look3